home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 05 - 1989 / 05.06 Jun 89 / HyperArrays ƒ / HYPER array / putdata.p < prev    next >
Encoding:
Text File  |  1989-03-07  |  1.1 KB  |  46 lines  |  [TEXT/MPS ]
  1.  
  2. unit putdataXcmd;
  3. interface
  4.         uses MemTypes, QuickDraw, OSIntf, ToolIntf, PackIntf, HyperXCMD, QDAccess;
  5. procedure putdata(ParamPtr: XCMDPtr);
  6. implementation
  7.     type
  8.         timeDarray=array[0..59] of integer;
  9.             
  10. procedure arrayrsc(ParamPtr: XCMDPtr);forward;
  11. procedure putdata(paramptr:xcmdptr);
  12.     begin
  13.         arrayrsc(paramptr);
  14.     end;
  15.  
  16. procedure arrayrsc(ParamPtr: XCMDPtr);
  17. var
  18.         MYTIMEHAND:HANDLE;
  19.         REFNUM:INTEGER;
  20.         TIMEARRAY:TIMEDARRAY;
  21.         temphandle:handle;
  22.         tempstr:str255;
  23.         horiz,vert:longint;
  24.  
  25. procedure getpoints(paramptr:xcmdptr;var horiz,vert:longint);
  26. begin
  27.     zerotopas(paramptr,paramptr^.params[1]^,tempstr);
  28.     horiz:=strtonum(paramptr,tempstr);
  29.     zerotopas(paramptr,paramptr^.params[2]^,tempstr);
  30.     vert:=strtonum(paramptr,tempstr);
  31. end;
  32.     begin
  33.     MYTIMEHAND:=(GETRESOURCE('ANES',1005));
  34.     HLOCK(MYTIMEHAND);
  35.     BLOCKMOVE(MYTIMEHAND^,@TIMEARRAY,SIZEOF(TIMEARRAY));
  36.     getpoints(paramptr,horiz,vert);
  37.     if (horiz < 0) or  (horiz > 59) then 
  38.     horiz := 59;
  39.     timearray[horiz] := vert;
  40.     BLOCKMOVE(@TIMEARRAY,MYTIMEHAND^,SIZEOF(TIMEARRAY));
  41.     REFNUM:=CURRESFILE;
  42.     changedresource(mytimehand);
  43.     writeresource(mytimehand);
  44.     releaseresource(mytimehand);
  45.     end;
  46. end.